home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / vision / programm / paintshp / source / gfablock.lst < prev    next >
Encoding:
File List  |  1994-09-22  |  152 b   |  8 lines
  1. ' Im Listing 0 durch die Dateilänge ersetzen !!!
  2. INLINE adr%,0
  3. CLR bild$
  4. {ADD(adr%,0)}=*bild$
  5. {*bild$}=adr%
  6. INT{ADD(*bild$,4)}=0
  7. PUT x&,y&,bild$
  8.